Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue65/pools/uDBPoolTest.dfm

Text File | 2000-11-26 | 5.9 KB | 263 lines

object frmTimeTest: TfrmTimeTest
  Left = 318
  Top = 103
  Width = 602
  Height = 430
  Caption = 'DBPool / Queue Time Test'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 384
    Width = 594
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 594
    Height = 384
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'Setup'
      object Label1: TLabel
        Left = 8
        Top = 12
        Width = 65
        Height = 13
        Caption = 'DB Pool Max:'
      end
      object Label2: TLabel
        Left = 153
        Top = 12
        Width = 68
        Height = 13
        Caption = 'Queue Factor:'
      end
      object Label3: TLabel
        Left = 11
        Top = 40
        Width = 62
        Height = 13
        Alignment = taRightJustify
        Caption = 'DB Location:'
      end
      object Label4: TLabel
        Left = 9
        Top = 68
        Width = 64
        Height = 13
        Alignment = taRightJustify
        Caption = 'IB Username:'
      end
      object Label5: TLabel
        Left = 215
        Top = 68
        Width = 62
        Height = 13
        Alignment = taRightJustify
        Caption = 'IB Password:'
      end
      object Label6: TLabel
        Left = 25
        Top = 96
        Width = 48
        Height = 13
        Alignment = taRightJustify
        Caption = 'SQL Text:'
      end
      object Label7: TLabel
        Left = 296
        Top = 12
        Width = 61
        Height = 13
        Alignment = taRightJustify
        Caption = 'Queue Mgrs:'
      end
      object seDBPoolMax: TSpinEdit
        Left = 76
        Top = 8
        Width = 43
        Height = 22
        MaxValue = 0
        MinValue = 0
        TabOrder = 0
        Value = 5
      end
      object seFactor: TSpinEdit
        Left = 222
        Top = 8
        Width = 43
        Height = 22
        MaxValue = 0
        MinValue = 0
        TabOrder = 1
        Value = 3
      end
      object eDBLoc: TEdit
        Left = 76
        Top = 36
        Width = 325
        Height = 21
        TabOrder = 2
        Text =
          'C:\Program Files\InterBase Corp\InterBase\examples\database\empl' +
          'oyee.gdb'
      end
      object eUsername: TEdit
        Left = 76
        Top = 64
        Width = 121
        Height = 21
        TabOrder = 3
        Text = 'Sysdba'
      end
      object ePassword: TEdit
        Left = 280
        Top = 64
        Width = 121
        Height = 21
        TabOrder = 4
        Text = 'masterkey'
      end
      object mSQL: TMemo
        Left = 76
        Top = 92
        Width = 501
        Height = 257
        Lines.Strings = (
          'Select * from SALES')
        TabOrder = 5
      end
      object seMgrs: TSpinEdit
        Left = 358
        Top = 8
        Width = 43
        Height = 22
        MaxValue = 0
        MinValue = 0
        TabOrder = 6
        Value = 1
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Time Test'
      ImageIndex = 1
      object bStartOne: TButton
        Left = 4
        Top = 40
        Width = 101
        Height = 25
        Caption = 'Start One Thread'
        Enabled = False
        TabOrder = 0
        OnClick = bStartOneClick
      end
      object bOpenAllDB: TButton
        Left = 4
        Top = 8
        Width = 101
        Height = 25
        Caption = 'Open All DBs'
        TabOrder = 1
        OnClick = bOpenAllDBClick
      end
      object bCloseAllDB: TButton
        Left = 4
        Top = 128
        Width = 101
        Height = 25
        Caption = 'Close All DBs'
        Enabled = False
        TabOrder = 2
        OnClick = bCloseAllDBClick
      end
      object bStopAll: TButton
        Left = 4
        Top = 96
        Width = 101
        Height = 25
        Caption = 'Stop All Threads'
        Enabled = False
        TabOrder = 3
        OnClick = bStopAllClick
      end
      object bStopOne: TButton
        Left = 4
        Top = 64
        Width = 101
        Height = 25
        Caption = 'Stop One Thread'
        Enabled = False
        TabOrder = 4
        OnClick = bStopOneClick
      end
      object sgTimes: TStringGrid
        Left = 108
        Top = 8
        Width = 477
        Height = 345
        ColCount = 6
        DefaultRowHeight = 16
        FixedCols = 0
        RowCount = 1
        FixedRows = 0
        GridLineWidth = 0
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSelect]
        ScrollBars = ssVertical
        TabOrder = 5
      end
      object bClearAll: TButton
        Left = 4
        Top = 184
        Width = 101
        Height = 25
        Caption = 'Clear All Times'
        TabOrder = 6
        OnClick = bClearAllClick
      end
      object bRefreshTimes: TButton
        Left = 4
        Top = 208
        Width = 101
        Height = 25
        Caption = 'Refresh Time List'
        TabOrder = 7
        OnClick = bRefreshTimesClick
      end
    end
  end
  object DBPool: TIBDatabasePool
    MaxConnections = 5
    DatabaseName = 'c:\IBDB\employee.gdb'
    Params.Strings = (
      'USER_NAME=Sysdba'
      'PASSWORD=masterkey')
    AutoOpen = False
    Left = 4
    Top = 164
  end
  object QueryQueue: TIBQueryQueue
    IBDatabasePool = DBPool
    MaxQueueFactor = 3
    QueueManagers = 1
    Left = 4
    Top = 196
  end
end